﻿Imports System.Transactions
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNaviera.DALC

Public Class PuertosBC
    Public Function ListaPuertos(ByVal objPuertosBE As PuertosBE) As List(Of PuertosBE)

        Dim objPuertos As List(Of PuertosBE) = Nothing
        Dim objPuertosDALC As PuertosDALC = Nothing
        objPuertosDALC = New PuertosDALC
        objPuertos = New List(Of PuertosBE)()
        objPuertos = objPuertosDALC.ListaPuerto(objPuertosBE)

        Return objPuertos
    End Function
End Class
